use DBI;

my ($dbh,$sql,$sth);

$dbh = DBI->connect("dbi:SQLite:dbname=microwfs.db", "", "",
                    { RaiseError => 1, AutoCommit => 1 });

	$sql = qq{ SELECT * from multi_obs limit 1 };
	print $sql."\n";
	$sth = $dbh->prepare( $sql );
	$sth->execute();
	my ($x,$y) = $sth->fetchrow_array;

print "$x $y \n";

$sth->finish();
undef $sth; # to stop "closing dbh with active statement handles"
            # http://rt.cpan.org/Ticket/Display.html?id=22688

$dbh->disconnect();

exit 0; 